home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 7 / Commodore_Disc_07_19xx_-_de.d64 / bytes free.64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  686b  |  15 lines
  1. 10 rem ********** free 64 *************
  2. 20 fora=0to120:readx:poke49152+a,x:y=y+x:next
  3. 30 ify<>14972thenprint"? read error[145]":end
  4. 35 rem ************************
  5. 40 rem ** start : sys49152,1 **
  6. 50 rem ** ende  : sys49152,0 **
  7. 55 rem ************************
  8. 32000 data32,253,174,32,158,183,224,0,208,13,120,169,131,141,2,3,169,164,141
  9. 32001 data3,3,88,96,120,169,36,141,2,3,169,192,141,3,3,88,96,169,0,133,13,32
  10. 32002 data125,179,32,155,188,165,100,133,98,165,101,133,99,162,144,56,32,73,188
  11. 32003 data32,223,189,169,40,133,254,169,4,133,255,162,0,189,0,1,201,0,240,5,198
  12. 32004 data254,232,208,244,160,0,185,0,1,201,0,240,7,9,128,145,254,200,208,242
  13. 32005 data162,0,160,0,198,254,169,32,145,254,198,254,232,224,4,208,247,76,131
  14. 32006 data164
  15.